home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / F-French / (c)f1.d64 / le pendu (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  151 lines
  1. 2 DIMF$(100) :A=RND(-TI)
  2. 3 PRINT"[147]
  3. 4 [153][163]10)"LE PENDU"
  4. 5 [153]"TU GAGNES SI TU DEVINES LE NOM D'UN ANIMAL AVANT LA PENDAISON"
  5. 7 [153]"SI TU DEVINES 3 MOTS AVANT D'ETRE PENDU 3 FOIS,TU GAGNES LA SERIE"
  6. 8 [153]"ES-TU PRET?(O/N)"
  7. 9 [161]A$:[139]A$[178]""[137]9
  8. 10 N[178]59
  9. 12 V1[178]54296:W1[178]54276:A1[178]54277:H1[178]54273:L1[178]54272
  10. 15 [134]A$(N)
  11. 20 [129]I[178]1[164]N:[135]A$(I):[130] I
  12. 21 [129]I[178]1[164]7:[135]H2(I),L2(I),D1(I):[130]
  13. 25 [131]PIE,CHIEN,PUCE,BOEUF,CHAT,MOUTON,SINGE,ORIGNAL,CANARD,GIRAFE,HIPPO
  14. 26 [131]ELEPHANT,LAPIN,LIEVRE,ARAIGNEE,AIGLE,ECUREUIL,AGNEAU
  15. 27 [131]OTARIE,LYNX,CASTOR,TRUITE,BROCHET,HUITRE,OCTOPUS,CHAMEAU,VACHE,CARIBOU
  16. 28 [131]ZEBRE,COCHON,PORC,POULE,COQ,OISEAU,LION,CRABE,HOMME,FEMME,LOUP,OURS
  17. 29 [131]POUSSIN,VEAU,MOUCHE,OIE,ESCARGOT,CROCODILE,SERPENT,GORILLE,RENARD
  18. 30 [131]JAR,POULET,COYOTE,SOURIS,MOINEAU,CHEVAL
  19. 31 [131]PIC, SAUMON,MESANGE,PIE
  20. 50 C$[178]A$([181](N[172][187](1)[170]1))
  21. 52 Z[178]0
  22. 53 V[178]0
  23. 55 [153]"LOAD
  24. 60 GOSUB3900
  25. 100 E$="[163][160][163][160][163][160][163][160][163][160][163][160][163][160][163][160][163] [163][160][163][160][163][160][163][160][163][160][163][160][163][160][160][163][160][163][160][163][160][163][160][163][160][163][160][163][160][163][160][163][160][163][160][163][160][163][160][163][160][163][160][163][160][163][160][163][160]"
  26. 110 PRINT""
  27. 120 PRINTTAB(20)LEFT$(E$,2*LEN(C$))
  28. 165 PRINT""
  29. 170 PRINTTAB(20)"[158]CHOISIS UNE LETTRE"
  30. 175 PRINT
  31. 176 PRINT"[145][145]"
  32. 177 PRINTTAB(24)"           "
  33. 180 PRINTTAB(26):INPUT"";D$
  34. 186 PRINT"[145][145]"
  35. 187 PRINTTAB(24)"           "
  36. 290 GOSUB5000
  37. 292 GOTO165
  38. 300 GETA$:IFA$=""THEN300
  39. 310 END
  40. 318 PRINT""
  41. 320 PRINT"[158]      /// "
  42. 322 RETURN
  43. 328 PRINT""
  44. 330 PRINT"[156]     [213][192][192][192][201] "
  45. 340 PRINT"[156]     [194][215] [215][200] "
  46. 350 PRINT"[156]    ([194] [211] [200]) "
  47. 360 PRINT"[156]     [194][202][198][203][200]  "
  48. 370 PRINT"[156]     [202][198][198][198][203] "
  49. 375 RETURN
  50. 378 PRINT""
  51. 380 PRINT"[144]      [217] [212]"
  52. 385 RETURN
  53. 398 PRINT""
  54. 400 PRINT"    [213][192][192][192][192][192][201] "
  55. 3100 PRINT"    [200]     [194]                  "
  56. 3110 PRINT"    [200][200][212] [167][194][194]                  "
  57. 3120 PRINT"    [200][200][212].[167][194][194]                  "
  58. 3130 PRINT"    [200][200][212] [167][194][194]                  "
  59. 3135 RETURN
  60. 3138 PRINT""
  61. 3140 PRINT"[158]    [203][203][166][166][166][202][202]                  "
  62. 3145 RETURN
  63. 3148 PRINT""
  64. 3150 PRINT"[156]      [165] [167]  "
  65. 3160 PRINT"[156]      [165][221][167]  "
  66. 3170 PRINT"[156]      [165][221][167]  "
  67. 3180 PRINT"[156]      [165][221][167]  "
  68. 3185 RETURN
  69. 3188 PRINT""
  70. 3190 PRINT"     [213][165][221][167][201] "
  71. 3200 PRINT"     [177][192][177][192][177]  "
  72. 3228 PRINT""
  73. 3250 PRINT"[158]     [194][213][198][201][200]  "
  74. 3255 PRINT""
  75. 3258 PRINTTAB(20)"[145]                 "
  76. 3260 PRINTTAB(20)"[158]*****PENDU(E)!****"
  77. 3262 PRINTTAB(20)"LA REPONSE:      "
  78. 3263 PRINTTAB(20)"                  "
  79. 3264 PRINTTAB(20)C$;"            "
  80. 3265 PRINT""
  81. 3270 PRINTTAB(20)"APPUIE SUR RETURN"
  82. 3280 GETA$:IF A$<>CHR$(13)THEN 3280
  83. 3290 Q=Q+1
  84. 3292 GOSUB3300
  85. 3295 GOTO3440
  86. 3300 PRINT"[147]"
  87. 3400 PRINT:PRINT:PRINT
  88. 3410 PRINTTAB(2)" PARTIES GAGNEES: PARTIES PERDUES  "
  89. 3420 PRINT:PRINT:PRINT
  90. 3430 PRINTTAB(7)SA;:PRINTTAB(26)Q
  91. 3432 IFSA=3THEN PRINT"TU AS GAGNE LA SERIE!"
  92. 3433 IFQ=3THENPRINT"LES ANIMAUX ONT GAGNE LA SERIE"
  93. 3434 IFSA=3ORQ=3THENGETA$:IFA$=""THEN3434
  94. 3435 IFSA=3ORQ=3THENRUN
  95. 3438 RETURN
  96. 3440 PRINT"[158]JOUES-TU ENCORE?(O/N)"
  97. 3445 GETA$:IFA$=""GOTO3445
  98. 3448 IFA$<>"N"THENGOTO50
  99. 3449 PRINT"OK, BYE-BYE!":END
  100. 3450 RETURN
  101. 3500 END
  102. 3899 REM****THE POST******
  103. 3900 PRINT"
  104. 4000 [129]I[178]1[164]23:[153]" ":[130]
  105. 4005 [153]"
  106. 4010 FORI=1TO11:PRINT" ";:NEXT
  107. 4020 PRINT"
  108. 4030 [153][163]10)" "
  109. 4050 [142]
  110. 4100 [161]A$:[139]A$[178]""[167]4100
  111. 5000 W[178]0
  112. 5005 [129]I[178]1[164][195](C$)
  113. 5010 G$(I)[178][202](C$,I,1)
  114. 5015 [130]
  115. 5020 [129]I[178]1[164][195](C$)
  116. 5030 [139][200](D$,1)[178]G$(I)[167][137]5040
  117. 5035 [137]5060
  118. 5040 [153]""
  119. 5042 W[178]W[170]1
  120. 5045 V[178]V[170]1
  121. 5050 [153][163]18[170]2[172]I)[200](D$,1)
  122. 5055 [139]V[178][195](C$)[167] [141]10000
  123. 5060 [130]
  124. 5100 [139]I[178][195](C$)[170]1[175] W[178]0[167]Z[178]Z[170]1: [141]6900
  125. 6000 [142]
  126. 6900 :
  127. 6910 [129]X[178]15[164]0[169][171]5:[151]V1,X:[151]W1,17:[151]A1,15:[151]54278,130
  128. 6920 [129]Y[178]20[164]2[169][171]1:[151]H1,30:[151]L1,X:[130]:[151]W1,0:[130]
  129. 7000 [145]Z[141] 318,328,378,398,3138,3148,3188
  130. 7100 [142]
  131. 10000 [151]V1,15:[151]W1,33:[151]A1,190:[151]54275,15:[151]54274,15:S1[178]54278
  132. 10010 [129]I[178]1[164]7:[139]H2(I)[178][171]1[167][151]H1,0:[151]L1,0:[137]10100
  133. 10020 [151]H1,H2(I):[151]L1,L2(I)
  134. 10030 [129]X[178]D1(I)[171]50[164]D1(I)[171]20:[151]S1,136:[130]:[130]
  135. 10040 [129]T[178]1[164]D1:[130]:[151]H1,0:[151]L1,0:[151]W1,0 :[130]
  136. 10050 [131]10,205,25,14,107,25,16,47,25,17,37,100,16,47,25,17,37,1000
  137. 10055 [131]-1,-1,-1
  138. 10099 [153]""
  139. 10100 [153][163]20)"***** BRAVO! *****"
  140. 10200 [153][163]20)"**TU ES SAUVE(E)!**"
  141. 10300 [153]""
  142. 10400 [153][163]20)"APPUIE SUR RETURN"
  143. 10500 [161]A$:[139] A$[179][177][199](13)[167] 10500
  144. 10600 SA[178]SA[170]1
  145. 10700 [141]3300
  146. 13440 [153]"JOUES-TU ENCORE? (O/N)"
  147. 13445 [161]A$:[139]A$[178]""[137]13445
  148. 13448 [139]A$[179][177]"N"[137]50
  149. 13449 [153]"OK, BYE-BYE!":[128]
  150. 13450 [142]
  151.